home *** CD-ROM | disk | FTP | other *** search
/ HamCall (April 1991) / HAMCALL CD-ROM (Buckmaster)(April 1991).BIN / telcom / qmodem / shownote.scr < prev    next >
Text File  |  1989-02-20  |  2KB  |  42 lines
  1. ;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*;
  2. ;                                                           ;
  3. ;   Script SHOWNOTE.SCR     (C) The Forbin Project          ;
  4. ;                                                           ;
  5. ;   This script will display the attached note file on the  ;
  6. ;   screen.  It is called as a subroutine from any linked   ;
  7. ;   script in the Dialing directory.                        ;
  8. ;                                                           ;
  9. ;   Example Linked Script:                                  ;
  10. ;                                                           ;
  11. ;       ;                                                   ;
  12. ;       ; Start of Linked Script Sysop2.scr                 ;
  13. ;       ;                                                   ;                                                                   
  14. ;       ; The following two lines are added:                ;
  15. ;                                                           ;
  16. ;       Note The Note file is : $NOTEFILE                   ;
  17. ;       Script SHOWNOTE.SCR   ; show the contents and return;
  18. ;                                                           ;
  19. ;       ; Back from the SHOWNOTE script.                    ;
  20. ;                                                           ;
  21. ;*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*;
  22.  
  23. EXIST $NOTEFILE Cont
  24. DISPLAYLN "-----------------"
  25. DISPLAYLN "No attached notes"
  26. DISPLAYLN "-----------------"
  27. RETURN
  28.  
  29. CONT:
  30. DISPLAYLN "-------------------------------"
  31. DISPLAYLN "Contents of attached Note file:"
  32. DISPLAYLN "-------------------------------"
  33. OPENFILE $NOTEFILE READ
  34. ReadLoop:
  35.    READFILE 0
  36.    IF "$0" = "_EOF_" DONE
  37.    DISPLAYLN "$0 "
  38.    GOTO READLOOP
  39. DONE:
  40. CLOSEFILE
  41. RETURN
  42.